(set @U "libs:asl.library")(set @AE "SYS:Old/Libs")(set @AG "RAM:Boot/libs/asl.library")(set @AJ "libs:IFFParse.library")(set @X " is %s\n\nDo you want to overwrite the library with the new version")
(set @A@ " is too old to work with HiSoft Basic 2. The installer can either")(set @AA " overwrite the old version or, you can let the installer create a new")(set @AC "Overwrite")(set @AD "Move to SYS:Old/Libs")
(set @AQ "RAM:Boot/libs/IFFParse.library")(set @AV "libs:hbasic2.library")(set @BS "Libs:hbasic2.library")(set @D "exec.library")(set @CO "\n Welcome to the installation utility for \nHiSoft Basic 2\n")
(set @CR "\n\nIf you want to update or add some new files to your installation")(set @CS " you must select either the Intermediate or Expert option.")(set @CZ "T:Install")(set @CX "T:Format2.0")(set @D@ "T:Format1.3")(set @CY "T:Install2.0")
(set @DX "HB2Examples2.0.Lha")(set @DY "HB2Examples2.1.Lha")(set @DZ "HB2Examples3.0.Lha")(set @HF "HiSoftBasic2:HBasic2")(onerror(CLEANUP)(user 2)(if (> @ioerr 0)(Message ("\n\nA Dos Error %ld has occured" @ioerr)
"\n\n\n\nPlease consult Appendix F in your HiSoft Basic 2 manual" " for further details.")))(@default-dest "SYS:")(set default-user @user-level)(set WBVer (< 2424832 (getversion @D (resident))))
(if (or (= (getassign "sys") "RAM DISK:") (= (getassign "sys") "Ram Disk:"))(set default-media 0)(set default-media 1))(Procedure PARTS(set components(askoptions(Prompt "\nWhich parts of the package do you want to install")
(help (cat "Select from the list, the parts of the package you wish to" " install. If you are installing for the first time we would recommend" " that you install all parts of the package.\n\n" @askoptions-help))(choices "Compiler files"
(set envarc 0)))))(PROCEDURE CHECKASL(set OLDASL 0)(If (AND (> media 0) (= WBVer 1) (IN Components 6))((Working "\n\nScanning system for a version of the ASL library\n\n" "that is compatible with HiSoft Basic 2\n\nHold a moment...")
(Prompt "\n\nThe version of the ASL library you have installed is incompatible" " with HiSoft Basic 2, the version required is 38.6 the version installed"(@X CURRENTASLVERSTRING) " or move the current asl library to a new drawer SYS:Old/Libs")
(help "The version of the ASL library installed on this machine" @A@ @AA " drawer \"SYS:Old/Libs\" to which the old ASL library will be copied to.")(Choices @AC "Move to SYS:Old/Libs")(default 1)))(if (= REPLACEASL 0)((if (<> (exists "SYS:Old") 2)
(if (< (getversion @AG) 2490404)(Set OLDASL 1)(Set OLDASL 0))(Set OLDASL 1))))(PROCEDURE CHECKIFF(set OLDIFF 0)(If (AND (> media 0) (IN Components 6))((Working "\n\nScanning system for a version of the IFFParse library\n\n"
" that is compatible with HiSoft Basic 2\n\nHold a moment...")(if (= (exists @AJ) 1)(if (< (getversion @AJ) 2424833)(Set OLDIFF 1)(Set OLDIFF 0)))(if (= OLDIFF 1)((set CURRENTVER(getversion @AJ))(set INSTALLVER 2424833)
(Prompt "\n\nThe version of the IFFParse library you have installed is incompatible"(" with HiSoft Basic 2, the version required is %s the version installed" INSTALLIFFVERSTRING)(@X CURRENTIFFVERSTRING)
" or move the current IFFParse library to a new drawer SYS:Old/Libs")(help "The version of the IFFParse library installed on this machine" @A@ @AA " drawer \"SYS:Old/Libs\" to which the old IFFParse library will be copied to.")
(If (AND (> media 0) (IN Components 6))((Working "\n\nScanning system for a previous version of the" "\n\nHiSoft Basic library that is\n\ncompatible with this" " HiSoft Basic 2\n\nHold a moment...")(if (= (exists @AV) 1)((set CURRENTVER
(Set OLDLIB 0))))(if (= NEWLIB 1)((set REPLACELIB(askbool(Prompt "Library version warning see Help for more details." "\n\nThe version of the HiSoft Basic 2 library installed on this" " machine is at least one version or more different from the"
" version you are about to install. Installing the HiSoft Basic 2" " library on the installation disk will stop any program created" " with the library installed on this machine from running."
(" The library version required for this installation is %ld" HB2INSTALLLIBVERSION)(" The library version on this machine is %ld" HB2CURRENTLIBVERSION) " Do you want to overwrite the library on this machine with the"
" installation version or move the currently installed library" " to a new drawer SYS:Old/Libs")(help "The version of the HiSoft Basic library you are about to" " install is a full version different to the library on this machine."
("\n\ni.e. the library on this machine is a version %ld library" HB2CURRENTLIBVERSION)(" and the installation library is a version %ld library." HB2INSTALLLIBVERSION)
(" This means that programs created with the version %ld library" HB2CURRENTLIBVERSION)(" will not work with the version %ld library and vice versa." HB2INSTALLLIBVERSION) "\n\nThe only way to make your programs work with the \"new\" library is"
" recompile your code with the relevant compiler/library combination" "\n\nWould you therefore like the installer to overwrite the current" " library with installation library or would you like the installer"
" to create a new drawer \"SYS:Old/Libs\" to which the \"old\" library will" " be copied to.")(Choices @AC "Move to SYS:Old/Libs")(default 1)))(if (= REPLACELIB 0)((if (<> (exists "SYS:Old") 2)(makedir "SYS:Old" (infos)))(if (<> (exists @AE) 2)
(makedir @AE (infos)))(copyfiles(source @BS)(dest @AE)(optional "askuser")(nogauge))))))(if (= OLDLIB 1)((set REPLACELIB(askbool(Prompt "\n\nThe version of the HiSoft Basic 2 library you have installed is incompatible"
(" with this version of HiSoft Basic 2, the version required is %s, the version installed" INSTALLLIBVERSTRING)(@X CURRENTLIBVERSTRING) " or move the current HBasic2 library to a new drawer SYS:Old/Libs")
(help "The version of the HBasic2 library installed in your machine" @A@ @AA " drawer \"SYS:Old/Libs\" to which the old HBasic2 library will be copied to.")(Choices @AC "Move to SYS:Old/Libs")(default 1)))(if (= REPLACELIB 0)(
(if (> (getversion @D (resident)) 2555904)(set mask 15))))(set EXAMPLELIST(askoptions(Prompt "\nWhich examples do you want to install")(help (cat "The examples available fall under 4 different classifications"
" those which are compatible under Workbench:-\n\n1.3 and upwards\n" "2.0 and upwards\n2.1 and upwards\n3.0 and upwards\n" "\nIf therefore you have an A500 running Workbench 1.3 you will" " not be able to run the 3.0 examples, you may however want"
" to install the examples anyway so you can look at some of the" " programming techniques used.\n\n" @askoptions-help))(choices "1.3 Examples" "2.0 Examples" "2.1 Examples" "3.0 Examples")(default mask))))))(PROCEDURE MEDIA(user 2)(set Media
(Askchoice(Help @askchoice-help)(Prompt "Select installation you require?")(Choices "Floppy disk" "Hard disk" "Hard disk and a Floppy disk set")(Default default-media)))(user default-user))(PROCEDURE INTRODUCTION(user 2)(if (> media 0)(message @CO
"\n\nTo ensure proper installation on a hard disk, it is important that" " you boot from your hard drive before using the installation utility!" @CR @CS))(if (= media 0)(message @CO "\nIt is important that you boot from your floppy drive with the "
"HiSoft Basic 2 installation disk before using the installation utility!" @CR @CS))(user default-user))(PROCEDURE COPYTOOLS(if (<> Components 0)((if (= Media 0)(
(Working "\n\nSetting up installation files\n\nfor a floppy disk installation\n\nhold a moment")(copyfiles(source "HB2Install:Tools")(dest "T:")(nogauge)(pattern "#?")(safe))(if (= WBVer 1)((rename (@CX) ("T:Format") (safe))
(Working "\n\nSetting up installation files\n\nfor a hard disk installation\n\nhold a moment")(set n 0)(while (set FILETOCOPY (select n "Lhex" ""))((set n (+ n 1))(copyfiles(source "HB2Install:Tools/")(dest "T:")(nogauge)(pattern FILETOCOPY)(safe)))
))))))(PROCEDURE LOCATIONS(user 2)(if (OR (IN Components 0) (IN Components 1) (IN Components 2))((Working "\nScanning system for a previous installation\n\nhold a moment")(if (<> (getassign "HBasic2" "a") "")(
(set INSTALLVERSTRING (cat (/ INSTALLVER 65536) "." (- INSTALLVER (* (/ INSTALLVER 65536) 65536))))(SET VERSTRING (cat ("\n\nVersion %s of HiSoft Basic 2 \n" CURRENTVERSTRING) "is already installed on your machine, \nthe version you are about"
(" to install is %s \n\n" INSTALLVERSTRING)))(if (< INSTALLVER CURRENTVER)(Message (cat VERSTRING "Do you want to install an older version?")))(if (> INSTALLVER CURRENTVER)(Message (cat VERSTRING "Do you want to install the new version?")))
(if (= INSTALLVER CURRENTVER)(Message (cat VERSTRING "Install the same version?"))))))(Set HB2DefaultDest @default-dest))))(If (OR (IN Components 0) (IN Components 1) (IN Components 2) (IN Components 7))(if (<> (getassign "HBasic2" "a") "")(
(set HB2_Dest(askdir(prompt "Install HiSoft Basic 2 files in the same drawer\nas the old version?")(help @askdir-help)(default HB2DefaultDest))))((set HB2_Dest(tackon(askdir(prompt "Select the location for the HiSoft Basic 2 Drawer\n"
(prompt "Select the location for the BMAP and BH files.")(help @askdir-help)(default HB2_Dest))))(if (IN Components 4)(set Examples_Dest(askdir(prompt "Select the location for the examples drawer.")(help @askdir-help)(default HB2_Dest))))
(if (= Envarc 1)(set Icons_Dest (expandpath "ENVARC:")))(if (AND (= Envarc 1) (= default-user 2) (IN Components 5))(set Icons_Dest(askdir(prompt "Select the location for the HiSoft Basic 2 icons - normally Env-Archive.")(help @askdir-help)
(default (expandpath "ENVARC:")))))(if (IN Components 6)(set HB2Libs_Dest (expandpath "LIBS:")))(if (AND (IN Components 6) (= default-user 2))(set HB2Libs_Dest(askdir(prompt "Select the location for the HiSoft Basic 2 library - normally LIBS:")
(help @askdir-help)(default (expandpath "LIBS:"))))))(Procedure LHACOPY1(if (OR (IN Components 0) (IN Components 1)(IN Components 2) (IN Components 6) (IN Components 7))((REQUESTINSTALL)(copyfiles(source "HB2Install:HB2Programs.Lha")(dest "Ram:")
(optional "force"))))(if (IN Components 5)((REQUESTINSTALL)(copyfiles(source "HB2Install:HB2Icons.Lha")(dest "Ram:")(optional "force")))))(Procedure LHACOPY2(if (IN Components 3)((REQUESTINSTALL)(copyfiles(source "HB2Install:HB2Includes.Lha")
(dest "Ram:"))))(if (IN Components 4)((REQUESTINSTALL)(set n 0)(while (set EXAMPLEFILE (select n @DW @DX @DY @DZ ""))((if (IN EXAMPLELIST n)(copyfiles (source ("HB2Install:%s" EXAMPLEFILE)) (dest "Ram:") (optional "force")))(set n (+ n 1)))))))
(PROCEDURE TESTSPACE(Set Space (Getdiskspace Space_Dest))(set testdiskspace 0)(if (< Space ReqSpace)(set testdiskspace(askbool(Prompt ("\nNot enough disk space to extract %s\n" param0)
("\nSpace required %ld\n\n\n Space available %ld\n\n" ReqSpace Space) "Delete some files and select Retry to see if there is sufficient space" " or select Ignore to carry on regardless.")
(help "\nThere is not enough disk space to extract the files.\n\n" "Delete some files and select Retry to see if there is enough space" " or Ignore to carry on regardless.")(choices "Retry" "Ignore")))))(TESTSPACE)(While (= testdiskspace 1)
(TESTSPACE))))(user default-user))(PROCEDURE EXTRACTINCLUDES(set Param3 @EJ)(if (IN Components 3)((set Space_Dest BHBMAP_Dest)(if (= media 0)(set param0 (cat "Include files \n\nThis could take:-\n\n" "20 minutes (A500 not expanded)\n\n"
"3 minutes (A1200/A4000 with fast RAM)"))(set param0 "Include files...."))(set Param1 (@EO BHBMAP_Dest))(set Param4 "")(set reqspace 370000)(if (= media 0)(REQUESTINCLUDES))(EXTRACTFILES)(delete @EJ (optional "force") (safe)))))
(PROCEDURE EXTRACTEXAMPLES(if (IN Components 4)((set Space_Dest Examples_Dest)(set Param4 "")(set Param1 (@EO Examples_Dest))(set n 0)(while (set param3 (select n "Ram:HB2Examples1.3.Lha" "Ram:HB2Examples2.0.Lha" "Ram:HB2Examples2.1.Lha"
"Ram:HB2Examples3.0.Lha" ""))(if (= media 0)(set param0 (select n(cat "\n\n1.3 example files\n\nThis will take approximately\n\n" "10 minutes (A500 unexpanded)\n\n" " 2 minutes (A1200/A4000 with fast RAM)")
(cat "\n\n2.0 example files\n\nThis will take approximately\n\n" @FB @FC)(cat "\n\n2.1 example files\n\nThis will take approximately\n\n" "1 minute (A500 unexpanded)\n\n" "10 seconds (A1200/A4000 with fast RAM)")
(cat "\n\n3.0 example files\n\nThis will take approximately\n\n" "3 minutes (A500 unexpanded)\n\n" "30 seconds (A1200/A4000 with fast RAM)") ""))(set param0 (select n "\n\n1.3 example files..." "\n\n\n2.0 example files..."
"\n\n\n\n2.1 example files..." "\n\n\n\n\n3.0 example files..." "")))(set reqspace (select n 130000 55000 13000 31000 ""))(if (AND (= WBVer 0) (= media 0) (= n 0) (IN EXAMPLELIST 0))((set Examples_Dest @GD)(set Param1 (@EO Examples_Dest))
(REQUESTINCLUDES)))(if (AND (= WBVer 0) (= media 0) (<> n 0))((set Examples_Dest "HB2Work:")(set Param1 (@EO Examples_Dest))(REQUESTWORK)))(if (AND (= WBVer 1) (= media 0) (= n 0) (IN EXAMPLELIST 0))((set Examples_Dest "HB2Work:")
(set Param1 (@EO Examples_Dest))(REQUESTWORK)))(if (AND (= WBVer 1) (= media 0) (<> n 0))((set Examples_Dest @GD)(set Param1 (@EO Examples_Dest))(REQUESTINCLUDES)))(if (IN EXAMPLELIST n)(EXTRACTFILES))(delete param3 (optional "force") (safe))
(set n (+ n 1))))))(PROCEDURE EXTRACTICONS(set Param3 @GE)(if (IN Components 5)((set Space_Dest Icons_Dest)(set param0 "icon files...")(set Param4 "")(ENVARCHIVE)(if (AND (> media 0) (= envarc 0))(set Param1 (@EO HB2_Dest)))(if (= media 0)
(if (= WBVer 0)(set walker(askbool(Prompt "\nDo you want to change the look of all the examples icons from" " Workbench 2.0 colors to Workbench 1.3 colors.\n\nPlease note\n\n" " This will take a very long time on floppy disks (10 minutes or more).")
(help "The HiSoft Basic 2 example files are setup for 2.x/3.x machines" " the colors will therefore look wrong on a 1.3 machine, would you like" " the installer to go through and change all the icons from 2.x/3.x colors"
" to 1.3 colors.\n\nWarning\nIt can take a very long time to change all the colors")(choices "Change colors" "Don't change colors")(default 1)))))))(PROCEDURE ICONCOLORS(if (AND (IN Components 0) (IN Components 1) (IN Components 2) (= WBVer 0))(
(set n 0)(while (set ICONFILE (select n "HBC" "ReadMe" "Debug" "Contents" "IFFParse.License" ""))((set n (+ n 1))(tooltype (dest ("%s/%s" HB2_Dest ICONFILE)) (swapcolors))))))(if (AND (IN Components 5) (= WBVer 0))((set n 0)
(while (set ICONFILE (select n "/HBasic" "def_bas" "def_bh" "def_project" "def_tool" "def_prefs" "def_opts" ""))((set n (+ n 1))(if (AND (> media 0) (= envarc 1))(tooltype (dest ("Envarc:HBasic/%s" ICONFILE)) (swapcolors)))(if (= media 0)(
(tooltype (dest ("HiSoftBasic2:Prefs/Env-Archive/HBasic/%s" ICONFILE)) (swapcolors)))))))))(PROCEDURE ICONCOLORS2(if (= WBVer 0)((if (AND (= media 0) (IN Components 3))(REQUESTINCLUDES))(user 0)(if (IN Components 3)((set n 0)
(while (set ICONFILE (select n "Tools" "Tools/FDtoBMAP" "Tools/OtoTaglist" "Tools/ObjEdit" ""))((set n (+ n 1))(if (= (substr BHBMAP_Dest (- (strlen BHBMAP_Dest) 1) ) ":")(tooltype (dest ("%s%s" BHBMAP_Dest ICONFILE)) (swapcolors))
(set NDRIVES (+ NDRIVES 1))))(if (<> df3 "")((select NDRIVES(set d0 "DF3:")(set d1 "DF3:")(set d2 "DF3:")(set d3 "DF3:"))(set NDRIVES (+ NDRIVES 1))))(set XDPROMPT "Select an extra floppy drive you would\nlike to use to speed up the installation")
(Message "\nFloppy disk installation requires\n3 blank disks and" " an Amiga\nWorkbench disk\n\n\n\nPlease have the 3 blank disks\nand the" " Workbench disk ready")(user default-user)(set QUICKFORMAT 0)(if (> default-user 0)(set QUICKFORMAT
(Askchoice(prompt "If you are using preformatted Amiga floppy" " disks would you like to only quick format them?" "\n\nIf you are just overwriting or adding to a previous floppy installation" " you can choose to not format the disks at all")
(set n 0)(while (set DISKNAME (select n @HV "HB2Includes" "HB2Work" ""))((set DISKNUMBER (select n "first" "second" "third" ""))(set DESCRIPTION (select n "boot" "includes" "work" ""))(set n (+ n 1))
(Message ("\nPlease insert the %s blank disk in drive %s - "DISKNUMBER DRIVE) "\n\nWait for the Drive light\n to go off before Proceeding")(Working ("\nFormatting HiSoft Basic 2 %s disk\n\n\n This will take aproximately %s..." DESCRIPTION TIME))
(Run ("T:Install %s" DRIVE) (safe))))(message ("\nRemove the disk from %s and label it -\n\n `HiSoft Basic 2 %s'" DRIVE DESCRIPTION))))))(delete "T:Format")(delete @CZ)(delete "T:Wait")(user default-user))(PROCEDURE WORKBENCH(if (<> QUICKFORMAT 2)(
(user 2)(message ("\nPlease insert your Workbench disk in drive %s " DRIVE) "\n\n\n\n Select Proceed to continue")(PROCEDURE SCANDISK(set WBDisk (expandpath DRIVE))(set WBDisk1 (substr WBDisk 0 9))(set WBDisk2 (substr WBDisk 8 9))
(if (OR (= WBDisk1 @IH) (= WBDisk2 "Workbench"))(set WBDisk3 0)(set WBDisk3 1)))(PROCEDURE NOTWBDISK(SCANDISK)(SET TESTDISK 0)(if (= WBDisk3 1)(set TESTDISK(askbool(Prompt "This does not look like a Workbench disk\n\n\nPlease insert an"
(" original (unaltered in any way) Workbench disk in drive %s " DRIVE) "\n\n\n Select Retry to scan the disk or Ignore to carry on regardless")(Help ("The disk you have inserted in drive %s does not look like a" DRIVE)
" Workbench disk to the installer.\n\nPlease insert an original Amiga"(" Workbench disk in drive %s select Retry for the installer to" DRIVE) " scan the disk again.\n\nYou can proceed without a Workbench disk but"
" the disks created may not work correctly and the installation" " may stop due to an incorrect file/directory structure! \n\nIf you" " wish to carry on regardless of the warnings, select Ignore.")(Choices "Retry" "Ignore")))))(NOTWBDISK)
(While (= TESTDISK 1)(NOTWBDISK))(SCANDISK)(user default-user))))(PROCEDURE WBCOPY(if (<> QUICKFORMAT 2)((Makedir "RAM:Boot")(set n 0)(while (set MAKDIR (select n "C" "Devs" "L" "Libs" "S" "System" "Utilities" ""))((set n (+ n 1))
(Makedir (@IT MAKDIR))))(if (= WBVer 1)(Makedir "RAM:Boot/Rexxc"))(Makedir "RAM:Boot/Prefs" (infos))(Makedir @IW (infos))(set n 0)(while (set WBDIR (select n "C" "Devs" "L" "Libs" "S" "System" ""))((set n (+ n 1))((DELETEFILES)
(if (AND (IN Components 0) (IN Components 1) (IN Components 2))(set config(askbool(prompt "\n\nDo you want run the configuration file builder\n\nSee Help for further details?")(help "The configuration file builder will configure your system"
" for the installed software, some of the things it will do are," " add items to user-startups (paths & assigns etc.) and" " create default configuration files for the compiler and editor,"
" so you can instantly run the package without having to configure anything." "\n\nIf you are using Workbench 1.3 on a hard disk, the builder" " will create a 2.0 style ENVARC: in SYS:Prefs/Env-Archive - it will only"
" do this if ENVARC: does not exist.\n\nIf you are using a 1.3 machine" " with floppy disks you must run the builder if you want icons to appear for" " your compiled programs.\n\nIf you are still using Workbench 1.3 we would recommend"
" that you consider upgrading your operating system to obtain the maximum" " from the HiSoft Basic 2 package.")(choices "Run builder" "Don't run builder")(default 1)))(set config 0)))(PROCEDURE CONFIGFILES(User 0)(set HBCOPTIONS(cat "ARRAY\n"
@KX ";If you have an extra disk drive attached un-comment the 3 lines below\n" ";Assign BH: HB2Includes:BH\n" ";Assign BMAP: HB2Includes:BMAP\n" ";Assign HB2EXAMPLES: HB2Includes:Examples\n"
";If you have more than one extra (3 drives or more) drive attached un-comment the line below\n" ";Assign WORK: HB2Work:\n" @LD))(Set PATCHFILE "RAM:Patchfile")(set FILETOBEPATCHED "HiSoftBasic2:S/Startup-Sequence")(PATCHER)(textfile(dest (@LG))
(Append (cat @LH @LI)))(textfile(dest (@LJ))(Append (HBCOPTIONS) @LK @LL))))(if (AND (= config 1) (> Media 0) (= WBVer 0))((Working "Building config files for a\n\n1.3 hard disk setup")(if (= envarc 0)((if (= (exists @LN) 0)(Makedir @LN (safe)))
(rename FILETOBEPATCHED (cat FILETOBEPATCHED ".bak"))(Run ("T:Edit from %s.bak with %s to %s" FILETOBEPATCHED PATCHFILE FILETOBEPATCHED))(delete PATCHFILE))(PROCEDURE REQUESTINSTALL(askdisk
(Prompt "\n\nPlease insert the HiSoft Basic 2\n\ninstallation disk in any drive")(help @askdisk-help)(dest "HB2Install")))(PROCEDURE REQUESTHB2BOOT(askdisk(Prompt "\n\nPlease insert the disk you labelled\n\nHiSoft Basic 2 boot" @MP)
(help @askdisk-help)(dest @HV)))(PROCEDURE REQUESTINCLUDES(askdisk(Prompt "\n\nPlease insert the disk you labelled\n\nHiSoft Basic 2 includes" @MP)(help @askdisk-help)(dest @HW)))(PROCEDURE REQUESTWORK(askdisk
(Prompt "\n\nPlease insert the disk you labelled\n\nHiSoft Basic 2 work" @MP)(help @askdisk-help)(dest "HB2Work")))(Procedure BYE(user 2)(Message "Installation complete. Please reboot before running HiSoft Basic 2."
"\nTo obtain your 30 days free technical support and notification of" " HiSoft Basic 2 updates, please complete your registration card and return" " it to:-\n\n" " North America Rest of world \n"
" Oregon Research HiSoft \n" " 16200 SW Pacific Highway The Old School \n" " Suite 162 Greenfield \n" " Tigard Bedford, UK \n"
" OR 97223 MK45 5DE \n" "Phone: +1 503 620 4919 +44 525 718181 \n" " FAX: +1 503 624 2940 +44 525 713716 \n")(Message "Please remember, UK technical support is\n between 2-3p.m."
" Mon-Fri\nIf you need technical support, please remember to have when you" " phone, your:-\nSerial Number\nSoftware version number\nMachine" " configuration (RAM,Processor,Hard disk etc.)\n\n Please also have a"
" clear and concise description of the problem you are having to ensure" " that we can deal with your problem as quickly as possible.\n\n" " Select Proceed to quit to Workbench")(if (AND (= WBVer 1) (= (exists "SYS:Utilities/Multiview") 1))
(EXTRACTPROGRAMS)(Complete 40)(LHACOPY2)(EXTRACTINCLUDES)(Complete 60)(EXTRACTEXAMPLES)(Complete 85)(CONFIGFILES)(Complete 95)(EXTRACTICONS)(ICONCOLORS)(ICONCOLORS2)))(if (OR (= media 0) (= Media 2))((Set Media 0)(Complete 0)(PARTS)(EXAMPLECHOICE)
